home *** CD-ROM | disk | FTP | other *** search
/ Essentials of Interactive Physiology / Essentials of Interactive Physiology.iso / pc / files / evaluation / evaluation.dcr / 00025_dataext.ls < prev    next >
Encoding:
Text File  |  2002-04-02  |  9.9 KB  |  260 lines
  1. on CreateWordLists
  2.   goFileMan = new(script("FileManParent"))
  3.   vsFileName = "@" & "a.txt"
  4.   vsWordsAndDefinitions = mReadStringFromFile(goFileMan, vsFileName)
  5.   vsPrevLetter = "a"
  6.   vsOldDelimiter = the itemDelimiter
  7.   the itemDelimiter = TAB
  8.   vsLine = item 1 of line 1 of vsWordsAndDefinitions
  9.   delete line 1 of vsWordsAndDefinitions
  10.   repeat while vsWordsAndDefinitions <> EMPTY
  11.     vsLetterDefinitions = EMPTY
  12.     vsFirstLetter = char 1 of vsLine
  13.     vsPrevLetter = vsFirstLetter
  14.     repeat while vsFirstLetter = vsPrevLetter
  15.       vsLetterDefinitions = vsLetterDefinitions & vsLine & RETURN
  16.       vsLine = item 1 of line 1 of vsWordsAndDefinitions
  17.       delete line 1 of vsWordsAndDefinitions
  18.       vsFirstLetter = char 1 of vsLine
  19.     end repeat
  20.     viField = new(#field, castLib("textFields"))
  21.     set the name of field viField to vsPrevLetter & "List"
  22.     delete line the number of lines in vsLetterDefinitions of vsLetterDefinitions
  23.     set the text of field viField to vsLetterDefinitions
  24.   end repeat
  25.   the itemDelimiter = vsOldDelimiter
  26.   put "finished"
  27. end
  28.  
  29. on CreateDisplayField
  30.   vlLetters = ["a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"]
  31.   vsOldDelimiter = the itemDelimiter
  32.   the itemDelimiter = TAB
  33.   repeat with vsALetter in vlLetters
  34.     vsdbName = vsALetter & "Definitions"
  35.     vsText = the text of field vsdbName
  36.     viField = new(#field, castLib("textFields"))
  37.     vsName = vsALetter & "DefinitionsText"
  38.     set the name of field viField to vsName
  39.     set the textStyle of field vsName to "plain"
  40.     repeat with i = 1 to the number of lines in vsText
  41.       vsWordDefinition = line i of vsText
  42.       vsItem = item 1 of vsWordDefinition
  43.       put vsItem after field vsName
  44.       vsItem = item 2 of vsWordDefinition
  45.       put RETURN & vsItem & RETURN & RETURN after field vsName
  46.       set the textStyle of line (3 * i) - 2 of field vsName to "bold"
  47.       set the textStyle of line (3 * i) - 1 of field vsName to "plain"
  48.     end repeat
  49.   end repeat
  50.   saveMovie()
  51.   the itemDelimiter = vsOldDelimiter
  52.   put "finished"
  53. end
  54.  
  55. on CreateAPWordLists
  56.   vlLetters = ["a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"]
  57.   repeat with vsLetter in vlLetters
  58.     goFileMan = new(script("FileManParent"))
  59.     vsFileName = the pathname & vsLetter & ".txt"
  60.     vsWordsAndDefinitions = mReadStringFromFile(goFileMan, vsFileName)
  61.     vsOldDelimiter = the itemDelimiter
  62.     the itemDelimiter = "*"
  63.     vsLine = item 1 of line 1 of vsWordsAndDefinitions
  64.     if char vsLine.length of vsLine = " " then
  65.       delete char vsLine.length of vsLine
  66.     end if
  67.     delete line 1 of vsWordsAndDefinitions
  68.     vsLetterDefinitions = vsLine
  69.     repeat while vsWordsAndDefinitions <> EMPTY
  70.       vsLine = item 1 of line 1 of vsWordsAndDefinitions
  71.       if char vsLine.length of vsLine = " " then
  72.         delete char vsLine.length of vsLine
  73.       end if
  74.       vsLetterDefinitions = vsLetterDefinitions & RETURN & vsLine
  75.       delete line 1 of vsWordsAndDefinitions
  76.     end repeat
  77.     viField = new(#field, castLib("textFields"))
  78.     set the name of field viField to vsLetter & "List"
  79.     set the text of field viField to vsLetterDefinitions
  80.   end repeat
  81.   the itemDelimiter = vsOldDelimiter
  82.   put "finished"
  83. end
  84.  
  85. on CreateAPFieldByLetter
  86.   vlLetters = ["a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"]
  87.   repeat with vsLetter in vlLetters
  88.     goFileMan = new(script("FileManParent"))
  89.     vsFileName = the pathname & vsLetter & ".txt"
  90.     vsWordsAndDefinitions = mReadStringFromFile(goFileMan, vsFileName)
  91.     vsLine = line 1 of vsWordsAndDefinitions
  92.     delete line 1 of vsWordsAndDefinitions
  93.     vsLetterDefinitions = vsLine
  94.     repeat while vsWordsAndDefinitions <> EMPTY
  95.       vsLine = line 1 of vsWordsAndDefinitions
  96.       vsLetterDefinitions = vsLetterDefinitions & RETURN & vsLine
  97.       delete line 1 of vsWordsAndDefinitions
  98.     end repeat
  99.     viField = new(#field, castLib("textFields"))
  100.     set the name of field viField to vsLetter & "Definitions"
  101.     set the text of field viField to vsLetterDefinitions
  102.   end repeat
  103.   put "finished"
  104. end
  105.  
  106. on CreateAPDisplayField
  107.   vlLetters = ["a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"]
  108.   vsOldDelimiter = the itemDelimiter
  109.   the itemDelimiter = "*"
  110.   repeat with vsALetter in vlLetters
  111.     vsdbName = vsALetter & "Definitions"
  112.     vsText = the text of field vsdbName
  113.     viField = new(#field, castLib("textFields"))
  114.     vsName = vsALetter & "DefinitionsText"
  115.     set the name of field viField to vsName
  116.     set the textStyle of field vsName to "plain"
  117.     repeat with i = 1 to the number of lines in vsText
  118.       vsWordDefinition = line i of vsText
  119.       vsItem = item 1 of vsWordDefinition
  120.       if char vsItem.length of vsItem = " " then
  121.         delete char vsItem.length of vsItem
  122.       end if
  123.       put vsItem after field vsName
  124.       vsItem = item 2 of vsWordDefinition
  125.       put RETURN & vsItem & RETURN & RETURN after field vsName
  126.       set the textStyle of line (3 * i) - 2 of field vsName to "bold"
  127.       set the textStyle of line (3 * i) - 1 of field vsName to "plain"
  128.     end repeat
  129.   end repeat
  130.   saveMovie()
  131.   the itemDelimiter = vsOldDelimiter
  132.   put "finished"
  133. end
  134.  
  135. on createAPSoundFileLists
  136.   vsFilePathName = "MediaPak:pronunciation Dictionary:Sounds:"
  137.   vlSoundFolders = getCurrentFolderContents(vsFilePathName)
  138.   vlLetters = ["a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"]
  139.   vsOldDelimiter = the itemDelimiter
  140.   the itemDelimiter = "*"
  141.   repeat with vsLetter in vlLetters
  142.     vslALetterSoundFiles = "["
  143.     vsData = member(vsLetter & "Definitions").text
  144.     repeat while vsData <> EMPTY
  145.       vsWord = item 1 of line 1 of vsData
  146.       if char vsWord.length of vsWord = " " then
  147.         delete char vsWord.length of vsWord
  148.       end if
  149.       vsSoundFile = item 3 of line 1 of vsData
  150.       vslALetterSoundFiles = vslALetterSoundFiles & "#" & vsSoundFile & ":" & QUOTE & vsWord & QUOTE & ","
  151.       delete line 1 of vsData
  152.     end repeat
  153.     delete char the number of chars in vslALetterSoundFiles of vslALetterSoundFiles
  154.     vslALetterSoundFiles = vslALetterSoundFiles & "]"
  155.     viField = new(#field, castLib("textFields"))
  156.     set the name of field viField to vsLetter & "SoundFiles"
  157.     set the text of field viField to vslALetterSoundFiles
  158.   end repeat
  159.   beep(2)
  160. end
  161.  
  162. on CopyAndRenameFiles
  163.   vsFilePathName = "MediaPak:pronunciation Dictionary:Sounds:"
  164. end
  165.  
  166. on renameSoundFiles
  167.   vsFilePathName = "MediaPak:pronunciation Dictionary:Sounds:"
  168.   vlSoundFolders = getCurrentFolderContents(vsFilePathName)
  169.   repeat with vsAFolderName in vlSoundFolders
  170.     vsSoundFolder = vsFilePathName & vsAFolderName & ":"
  171.     vlFileNames = getCurrentFolderContents(vsSoundFolder)
  172.     vslALetterSoundFiles = "["
  173.     vsLetter = char 1 of getAt(vlFileNames, 1)
  174.     vsPrevLetter = vsLetter
  175.     i = 1
  176.     repeat with vsAFileName in vlFileNames
  177.       vsLetter = char 1 of vsAFileName
  178.       if not (vsLetter = vsPrevLetter) then
  179.         delete char the number of chars in vslALetterSoundFiles of vslALetterSoundFiles
  180.         vslALetterSoundFiles = vslALetterSoundFiles & "]"
  181.         viField = new(#field, castLib("textFields"))
  182.         set the name of field viField to vsPrevLetter & "SoundFiles"
  183.         set the text of field viField to vslALetterSoundFiles
  184.         vslALetterSoundFiles = "["
  185.         vsPrevLetter = vsLetter
  186.         i = 1
  187.       end if
  188.       vsNewFileName = vsLetter & IntegerToString(i, 3)
  189.       i = i + 1
  190.       vslALetterSoundFiles = vslALetterSoundFiles & "#" & vsNewFileName & ":" & QUOTE & vsAFileName & QUOTE & ","
  191.     end repeat
  192.     delete char the number of chars in vslALetterSoundFiles of vslALetterSoundFiles
  193.     vslALetterSoundFiles = vslALetterSoundFiles & "]"
  194.     viField = new(#field, castLib("textFields"))
  195.     set the name of field viField to vsPrevLetter & "SoundFiles"
  196.     set the text of field viField to vslALetterSoundFiles
  197.   end repeat
  198.   beep(2)
  199. end
  200.  
  201. on addExtension
  202.   vsFilePathName = the pathname & "dswMedia:"
  203.   vlSoundFolders = getCurrentFolderContents(vsFilePathName)
  204.   repeat with vsAFolderName in vlSoundFolders
  205.     vsSoundFolder = vsFilePathName & vsAFolderName & ":"
  206.     vlFileNames = getCurrentFolderContents(vsSoundFolder)
  207.     repeat with vsAFileName in vlFileNames
  208.       vsFullFileNameOld = vsSoundFolder & vsAFileName
  209.       vsFullFileNameNew = vsSoundFolder & vsAFileName & ".aif"
  210.       vsSuccess = RenameFile(vsFullFileNameOld, vsFullFileNameNew)
  211.       if not vsSuccess then
  212.         put vsAFileName
  213.         next repeat
  214.       end if
  215.       put "not ", vsAFileName
  216.     end repeat
  217.   end repeat
  218.   beep(2)
  219. end
  220.  
  221. on getCurrentFolderContents xsFilePath
  222.   fileList = []
  223.   repeat with i = 1 to the maxinteger
  224.     vsFileName = getNthFileNameInFolder(xsFilePath, i)
  225.     if vsFileName = EMPTY then
  226.       exit repeat
  227.       next repeat
  228.     end if
  229.     append(fileList, vsFileName)
  230.   end repeat
  231.   return fileList
  232. end
  233.  
  234. on missingSounds
  235.   vlLetters = ["a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"]
  236.   repeat with vsALetter in vlLetters
  237.     if vsALetter <> "y" then
  238.       vsdbName = vsALetter & "List"
  239.       vsSndName = vsALetter & "SoundFiles"
  240.       vsText = the text of field vsdbName
  241.       vlList = value(the text of field vsSndName)
  242.       repeat with i = 1 to the number of lines in vsText
  243.         vsWord = line i of vsText
  244.         if getPos(vlList, vsWord) then
  245.           nothing()
  246.           next repeat
  247.         end if
  248.         put vsWord & RETURN after member "not in sound list"
  249.       end repeat
  250.       repeat with vsSoundWord in vlList
  251.         if vsText contains vsSoundWord then
  252.           nothing()
  253.           next repeat
  254.         end if
  255.         put vsSoundWord & RETURN after member "not in word list"
  256.       end repeat
  257.     end if
  258.   end repeat
  259. end
  260.